home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / wildcat / abitwlog.zip / LOGON.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-05  |  1KB  |  98 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1209 bytes  01/28/123  10:06:02pm
  3. '! Code Segment Size  :659 bytes
  4. '! Data Segment Size  :4464 bytes
  5. '! String Segment Size:550 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Dim s4463 As String*1
  9.  
  10.       Dim s65534_ As String*1
  11.       Dim s65535_ As String*1
  12.  
  13.       Do
  14.    40   Print "@CLS@";
  15.         Print "         @0F@ABITW - LOGON V1.0  Registered to -=UNREGISTERED=-"
  16.         Print ""
  17.         Print ""
  18.         Print "                 @0D@[@0F@F@0D@]ast Logon"
  19.         Print "                       @0D@[@0F@N@0D@]ormal Logon"
  20.         Print "                            @0D@[@0F@P@0D@]age the Sysop"
  21.         Print "                                  @05@[@0F@W@05@]ho's on online?"
  22.         Print "                                       @05@[@0F@U@05@]Page other User."
  23.         Print ""
  24.         Print ""
  25.         Print ""
  26.         Print " @05@Pi@0F@ck @0D@on@05@e: ";
  27.         If User.SecLevel = "NEWUSER" Then
  28.           Print ""
  29.           Print ""
  30.           Print ""
  31.           Print "Sorry, but NewUser's aren't allowed to do a Fast Logon."
  32.           Do
  33.   216       s4463 = UCase(InKey(1213417543))
  34.           Loop Until s4463 > ""
  35.           s65535_ = s4463
  36.           If s65535_ = "P" Then
  37.             PageSysop 
  38.           Else
  39.   292       If s65535_ = "N" Then
  40.               HelloFiles 
  41.               QuoteOfTheDay 
  42.               CheckNewsletter 
  43.               CheckBulletins 
  44.               CheckMailAtLogon 
  45.               DisplayGroupFiles 
  46.               End 
  47.             Else
  48.   336         If s65535_ = "W" Then
  49.                 WhoIsOnline 
  50.               Else
  51.   364           If s65535_ = "U" Then
  52.                   PageUser 
  53.                 Else
  54.   392             Print "That's not an option."; s4463
  55.                   Beep 
  56.                 End If
  57.               End If
  58.             End If
  59.           End If
  60.   412   Else
  61.           Do
  62.   418       s4463 = UCase(InKey(1213417543))
  63.           Loop Until s4463 > ""
  64.           s65534_ = s4463
  65.           If s65534_ = "P" Then
  66.             PageSysop 
  67.           Else
  68.   494       If s65534_ = "N" Then
  69.               HelloFiles 
  70.               QuoteOfTheDay 
  71.               CheckNewsletter 
  72.               CheckBulletins 
  73.               CheckMailAtLogon 
  74.               DisplayGroupFiles 
  75.               End 
  76.             Else
  77.   538         If s65534_ = "F" Then
  78.                 CheckNewsletter 
  79.                 DisplayGroupFiles 
  80.                 CheckMailAtLogon 
  81.                 End 
  82.               Else
  83.   573           If s65534_ = "W" Then
  84.                   WhoIsOnline 
  85.                 Else
  86.   601             If s65534_ = "U" Then
  87.                     PageUser 
  88.                   Else
  89.   629               Print "That's not an option."; s4463
  90.                     Beep 
  91.                   End If
  92.                 End If
  93.               End If
  94.             End If
  95.           End If
  96.         End If
  97.   649 Loop
  98.